home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / xm / drawing-area next >
Encoding:
Text File  |  1991-09-26  |  547 b   |  22 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; Drawing area demo
  4.  
  5. (require 'motif)
  6. (load-widgets shell drawing-area)
  7.  
  8. (define top (application-initialize 'drawing-area))
  9. (set-values! top 'width 300 'height 100)
  10.  
  11. (define dr (create-managed-widget (find-class 'drawing-area) top
  12.   'expose-callback (list (lambda r (format #t "expose: ~s~%" r)))))
  13.  
  14. (set-values! dr 'resize-callback
  15.   (list (lambda r (format #t "resize: ~s~%" r))))
  16.  
  17. (add-callback dr 'input-callback
  18.   (lambda r (format #t "input:  ~s~%" r)))
  19.  
  20. (realize-widget top)
  21. (context-main-loop (widget-context top))
  22.